ClrText Locate 6,2,"~FAST EYE~" Locate 6,3,"----------" Locate 2,4,"By:Marcus Lundstrom" Locate 2,5,"-------------------" While Getkey 31 Locate 6,7,"Press [EXE]" Locate 6,7," " Locate 6,7," " WhileEnd ClrText Locate 3,4,"-=Count the X's=-" ClrText 0 A~Z 50 W Lbl 0 0 F:C+1 C If C=20 Then Goto 2 IfEnd Int 20Ran#+1 A Int 6Ran#+1 B Int 2Ran# D If D=0:Then Locate A,B,"(X)":E+1 E IfEnd If D=1:Then Locate A,B,"(Y)":IfEnd While F W F+1 F WhileEnd Locate A,B," " Goto 0 Lbl 2 ClrText Locate 3,2,"Number of X's" ? G ClrText Locate 1,4,"Right number is:" Locate 17,4,E Locate 1,6,"Percent" G Ex100 Z Z X X+Y Y If Z>100 Then Z-100 100-Ans Z IfEnd Locate 10,6,Z ClrText If W>10 Then Locate 5,5,"Get ready..." IfEnd ClrText W-10 W 0 C 0 E If W 0 Then Goto 0 IfEnd ClrText Locate 1,4,"Percent of all:" Y 500x100 V If V>100 Then V-100 100-Ans V IfEnd Locate 17,4,V
|